home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
VS_804.ARJ
/
MAINTSRC.EXE
/
A_DICTHD.PRG
< prev
next >
Wrap
Text File
|
1991-11-25
|
4KB
|
148 lines
* Filename.......: A_DICTHD.PRG
*
* Author.........: Vernon E. Six, Jr.
*
* Last Update....: Mon 11/25/91 16:37:11
*
* Created using..: VSG - Vern Six's Get System v1.00.53a
*
* Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide!
#include "INKEY.CH"
#include "SETCURS.CH"
#include "_DICTHDR.CH"
FUNCTION A_DICTHDR(pl_Update,pc_Mode)
*══════════════════════════════════════════════════════════*
* Ask the user for the database name *
*══════════════════════════════════════════════════════════*
LOCAL getlist := {}
LOCAL GetObj
LOCAL l_EatKeys := .F.
LOCAL a_Say := {}
LOCAL a_Get := {}
LOCAL n_Cntr
LOCAL c_OldHelp
LOCAL n_Correct := 1
*══ Make an assumption ═══════════════════════════════════*
pc_Mode = IF(pc_Mode=NIL,"EDIT",UPPER(pc_Mode))
*═════════════════════════════════════════════════════════*
_DICTHDR->( VS_SetOrder("1") )
AADD( a_Get, IF(pl_Update, _DICTHDR->DBF_NAME , _DEF__DICTHDR_DBF_NAME ))
VS_GRABSCR()
VS_PALETTE(7)
VS_Text(2,"",PADC("Working...",40),"")
DispBegin()
VS_EndText()
IF pc_Mode = "DISPLAY"
VS_WIND(06,05,10,73," Copy An Existing Database "," Press Any Key To Continue ")
ELSE
VS_WIND(06,05,10,73," Copy An Existing Database "," Press <F1> For Help ")
ENDIF
@ 08,26 SAY "New Database Name:"
SETCOLOR(VS_WindUns())
VS_WndColr()
*══════════════════════════════════════════════════════════*
GetObj := GetNew( 08,45, ;
{|x| IF(x==NIL,a_Get[001], a_Get[001]:=x)},;
"a_Get[001]", ;
_PIC__DICTHDR_DBF_NAME )
GetObj:cargo := {"_DICTHDR","DBF_NAME"}
GetObj:postBlock := { || VS_EatKeys(@l_EatKeys) .AND. ;
_DICTHDR->( VS_NoOther(a_Get[001]) ) }
AADD( getlist, GetObj )
GetObj:Display()
*══════════════════════════════════════════════════════════*
SETCURSOR(SC_NORMAL)
DispEnd()
*══════════════════════════════════════════════════════════*
* Do all the pre-validations *
*══════════════════════════════════════════════════════════*
IF pl_Update .OR. pc_Mode="DISPLAY"
ENDIF
IF pc_Mode = "DISPLAY"
CLEAR GETS
SETCURSOR(SC_NONE)
VS_INKEY(0)
ELSE
DO WHILE .T.
l_EatKeys := .F.
c_OldHelp = VS_HelpPrg("A_DICTHDR ")
ReadModal(getlist)
VS_HelpPrg(c_OldHelp)
CLEAR TYPEAHEAD
IF LASTKEY() = K_ESC
EXIT
ENDIF
n_Correct = VS_Correct()
DO CASE
CASE n_Correct = 3
VS_PutScr()
RETURN(NIL)
CASE n_Correct = 2
LOOP
ENDCASE
EXIT
ENDDO
ENDIF
VS_PutScr()
CLEAR TYPEAHEAD
IF LASTKEY() = K_ESC .OR. pc_Mode = "DISPLAY"
RETURN(NIL)
ENDIF
RETURN(a_Get)
*══ EOF: A_DICTHDR() ═════════════════════════════════════════════════════════*